<script>on mouseUpanswer file "Choose a file to examine:"if it = "" then exit mouseupput GetCreateDate(it) into modDateconvert modDate to long date and timeanswer modDateend mouseUp</script>
</part>
<part>
<id>11</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>116</left>
<top>54</top>
<right>228</right>
<bottom>76</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>SetCreateDate</name>
<script>on mouseUpput the seconds into newModDateput newmoddate into moddateconvert moddate to long date and timeanswer file "Choose a file to set Modification Date:"if it = "" then exit mouseupsetCreateDate it,newModDateanswer "Modification date set to" && moddate & "."end mouseUp</script>
</part>
<content>
<layer>card</layer>
<id>3</id>
<text>GetCreateDate takes one parameter, the pathname of the file to examine. It returns the time in seconds which can be converted to a date. SetCreateDate takes two parameters, the pathname of the file to work on, and the datetime in seconds.Click on and/or examine the scripts of the buttons above to see how they work!This external is free for purely personal use. A license fee of $10.00 is required if you use this external in any “in-house” corporate, shareware or freeware products. The license fee for unlimited commercial use in a SINGLE “for sale” product is $25.00. The license fee for unlimited commercial use with MULTIPLE products is $100.00.Permission is hereby granted to all groups who distribute demo software, either for profit (such as EduCorp) or not for profit (such as a Macintosh Users Group), to include this file in their collection. My goal is to get as much exposure for my products as possible, and I believe that these groups offer an invaluable service to shareware publishers like myself.If you have questions or comments we can be reached through the following:Iverson Software Co. 507.625.7355522 Record St. j5rson@prairie.lakes.comMankato MN 56001-2546 http://prairie.lakes.com/~j5rson/</text>